home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Informant Complete 1995 - 2000
/
Delphi Informant Complete 1995 to 2000.iso
/
Delphi Informant Magazine Complete Works SOURCE CODE 1998.rar
/
1998
/
Jan
/
di9801kw
/
PropExp1.dfm
/
PropExp1.txt
Wrap
Text File
|
1997-07-30
|
7KB
|
272 lines
object frmPropExplorerExpert: TfrmPropExplorerExpert
Left = 194
Top = 80
ActiveControl = cmbValue
BorderStyle = bsDialog
Caption = 'Property Explorer'
ClientHeight = 320
ClientWidth = 556
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
PopupMenu = popAbout
Position = poScreenCenter
ShowHint = True
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 29
Top = 100
Width = 27
Height = 13
Alignment = taRightJustify
Caption = '&Value'
FocusControl = cmbValue
end
object Label2: TLabel
Left = 28
Top = 12
Width = 28
Height = 13
Alignment = taRightJustify
Caption = '&Forms'
FocusControl = lbxForms
end
object Label3: TLabel
Left = 7
Top = 280
Width = 522
Height = 17
AutoSize = False
Caption =
'Warning: the forms must be saved before the locator can find all' +
' the properties with this value.'
WordWrap = True
end
object cmbValue: TComboBox
Left = 64
Top = 96
Width = 257
Height = 21
ItemHeight = 13
TabOrder = 3
OnChange = EnableLocate
end
object btnLocate: TBitBtn
Left = 459
Top = 4
Width = 89
Height = 25
Hint = 'Locate the entered value'
Caption = '&Locate'
Default = True
Enabled = False
TabOrder = 7
OnClick = btnLocateClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
339977FF777777773377000BFB03333333337773FF733333333F333000333333
3300333777333333337733333333333333003333333333333377333333333333
333333333333333333FF33333333333330003333333333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object btnCancel: TBitBtn
Left = 459
Top = 32
Width = 89
Height = 25
Hint = 'Close the explorer'
TabOrder = 8
Kind = bkClose
end
object stgResults: TStringGrid
Left = 8
Top = 148
Width = 540
Height = 127
TabStop = False
ColCount = 4
DefaultColWidth = 129
DefaultRowHeight = 20
FixedCols = 0
RowCount = 7
FixedRows = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSelect, goThumbTracking]
TabOrder = 10
OnDblClick = stgResultsDblClick
OnEnter = stgResultsEnter
OnExit = stgResultsExit
end
object hdrResults: THeader
Left = 8
Top = 128
Width = 523
Height = 21
Sections.Sections = (
#0'130'#0'Form'
#0'130'#0'Object'
#0'130'#0'Property'
#0'35'#0'Value')
TabOrder = 9
TabStop = True
OnSizing = hdrResultsSizing
end
object lbxForms: TListBox
Left = 64
Top = 8
Width = 257
Height = 81
ItemHeight = 13
MultiSelect = True
Sorted = True
TabOrder = 0
OnClick = lbxFormsClick
end
object cbxMatchCase: TCheckBox
Left = 332
Top = 82
Width = 113
Height = 17
Caption = ' Case &sensitive'
TabOrder = 5
end
object cbxWholeWords: TCheckBox
Left = 332
Top = 102
Width = 113
Height = 17
Caption = ' &Whole words only'
TabOrder = 6
end
object btnAll: TButton
Left = 12
Top = 36
Width = 45
Height = 21
Hint = 'Select all forms'
Caption = '&All'
TabOrder = 1
OnClick = btnAllClick
end
object btnNone: TButton
Left = 12
Top = 64
Width = 45
Height = 21
Hint = 'Select no forms'
Caption = '&None'
TabOrder = 2
OnClick = btnNoneClick
end
object btnShow: TBitBtn
Left = 459
Top = 96
Width = 89
Height = 25
Hint = 'Open form and select object'
Cancel = True
Caption = 'S&how'
Enabled = False
TabOrder = 12
OnClick = btnShowClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object pnlStatus: TPanel
Left = 0
Top = 299
Width = 556
Height = 21
Align = alBottom
Alignment = taLeftJustify
BevelOuter = bvLowered
TabOrder = 13
end
object ragSearchIn: TRadioGroup
Left = 332
Top = 6
Width = 105
Height = 71
Caption = 'Search in'
ItemIndex = 2
Items.Strings = (
'Na&me'
'Val&ue'
'&Both')
TabOrder = 4
end
object btnSave: TBitBtn
Left = 459
Top = 64
Width = 89
Height = 25
Hint = 'Save the results to a file'
Caption = 'Sav&e'
Enabled = False
TabOrder = 11
OnClick = btnSaveClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
0003737FFFFFFFFF7F7330099999999900333777777777777733}
NumGlyphs = 2
end
object popAbout: TPopupMenu
Left = 208
Top = 16
object mni1: TMenuItem
Caption = ' Property Explorer'
ShortCut = 0
end
object mni2: TMenuItem
Caption = ' Version 1.0'
ShortCut = 0
end
object mni3: TMenuItem
Caption = 'Written by Keith Wood'
ShortCut = 0
end
end
object dlgSave: TSaveDialog
DefaultExt = 'txt'
FileEditStyle = fsEdit
FileName = 'PropExpl'
Filter = 'Text files|*.txt|All files|*.*'
InitialDir = 'C:\Temp'
Options = [ofOverwritePrompt, ofExtensionDifferent, ofCreatePrompt]
Title = 'Save Located Properties'
Left = 244
Top = 16
end
end